home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / rkpls301.zip / RKPDEMO3.ZIP / GENFILE.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-04  |  2KB  |  88 lines
  1. Program GenFile;
  2.  
  3. {
  4.  This is a sample programme using RkPlus.  It is a sample of a key file
  5.  generation programme that would be used by the programmer to create
  6.  key files to be distributed to registered users.  The programme itself
  7.  would NOT be distributed, as it would allow users to generate key
  8.  files.  This sample can create a limited use Sample key file or full
  9.  registration key file, for the Sample1 and Sample2 programmes.
  10.  
  11.  GenFile uses the Rkp3Enc unit to cause RkPlus use the new version 3.x
  12.  keys.
  13. }
  14.  
  15.  
  16. Uses
  17.   Crt,
  18.   Dos,
  19.   RkPlus,
  20.   Rkp3Enc;
  21.  
  22.  
  23. Const
  24.   MonthNames : Array[1..12] of String[3]
  25.   = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
  26.  
  27.  
  28. Var
  29.   kc          : Char;
  30.   ey,em,dd,dw : Word;
  31.   Owner : Array[0..16] of Char;
  32.   Prog  : Array[0..5] of Char;
  33.   Ver   : Real;
  34.  
  35.  
  36. Begin
  37.   Owner := 'ArgleBarbWotsLeeb';
  38.   Prog := 'Sample';
  39.   Ver := 1.0;
  40.   SetOwnerCode(Owner,SizeOf(Owner));
  41.   SetProgCode(Prog,SizeOf(Prog));
  42.   SetVerCode(Ver,SizeOf(Ver));
  43.   SetKeyFile('Sample');
  44.   WriteLn('GenFile');
  45.   WriteLn('Key File Generation Programme for Sample1/Sample2');
  46.   WriteLn('See RKPLUS.DOC for more info');
  47.   WriteLn;
  48.   WriteLn('GenFile would be used by the programmer to create key files.');
  49.   WriteLn('It would NOT be distributed.');
  50.   WriteLn;
  51.   Write('Enter name of person to register : ');
  52.   ReadLn(Rkp.Name1);
  53.   WriteLn;
  54.   Write('Is this a limited use demo? ');
  55.   kc := UpCase(ReadKey);
  56.   WriteLn(kc);
  57.   WriteLn;
  58.   If (kc in ['Y','y']) then Begin
  59.     GetDate(ey,em,dd,dw);
  60.     If (em = 12) then Begin
  61.       em := 1;
  62.       Inc(ey);
  63.     End Else
  64.       Inc(em);
  65.     WriteLn('Creating limited use demo key (will expire 1-',MonthNames[em],'-',ey,')');
  66.     Rkp.Level := 0;
  67.     Rkp.ExpYear := ey;
  68.     Rkp.ExpMonth := em;
  69.     Rkp.ExpDay := 1;
  70.   End Else Begin
  71.     WriteLn('Creating unlimited registration key');
  72.     Rkp.Level := 1;
  73.     Rkp.ExpYear := 0;
  74.     Rkp.ExpMonth := 0;
  75.     Rkp.ExpDay := 0;
  76.   End;
  77.   Rkp.ID := '(c) Serious Cybernetics';
  78.   Rkp.Message := 'GenFile';
  79.   Rkp.Name2 := '';
  80.   Rkp.Name3 := '';
  81.   CreateKey;
  82.   SaveRegInfo;
  83.   If Rkp.Registered then
  84.     WriteLn(KeyFileName,' created.')
  85.   Else
  86.     WriteLn('Error ',RkpError,' creating file.');
  87. End.
  88.